home *** CD-ROM | disk | FTP | other *** search
/ Shareware Games Galore! / Shareware Games Galore!.iso / arcade / corewars / distort.rdc < prev    next >
Text File  |  1989-04-28  |  492b  |  44 lines
  1.  
  2. values    equ    last-table
  3.  
  4. top
  5.  
  6. again    mov    #values,counter
  7. loop    add    #1,modify
  8.     sub    modify,bomb
  9.     add    modify,@counter
  10.     mov    @counter,@bomb
  11.     spl    @bomb
  12.     djn    loop,counter
  13.     jmp    again
  14.  
  15. modify    dat    0
  16. bomb    dat    -100
  17. counter    dat    0
  18.  
  19. table    
  20.     MOV    1    0
  21.     ADD    2    0
  22.     SUB    3    0
  23.     JMP    4
  24.     JMZ    5    0
  25.     JMN    6    0
  26.     DJN    7    0
  27.     MOV    <8    <0
  28.     ADD    <9    <0
  29.     SUB    <10    <0
  30.     JMP    <11
  31.     JMZ    <12    <0
  32.     JMN    <13    <0
  33.     DJN    <14    <0
  34.     MOV    #15    @0
  35.     ADD    #16    0
  36.     SUB    <17    @0
  37.     JMP    -18
  38.     JMZ    -19    @0
  39.     JMN    -20    0
  40.     DJN    -21    @0
  41.  
  42. last
  43.  
  44.